home *** CD-ROM | disk | FTP | other *** search
- Unit Sonidos;
-
- (* Unit Sonidos Versión 1.00a por David Carrero Fernández-Baillo *)
- (* 18/09/1993 - Shareware *)
-
- (* Librería Sonidos Versión 1.00 para Turbo Pascal 7 Modo Real *)
- (* Shareware 1993,94 David Carrero Fernández-Baillo *)
- (* 09/01/1994 *)
-
- (* Librería Sonidos Versión 2.00 para Turbo Pascal 7 Modo Real *)
- (* Shareware 1993,94 David Carrero Fernández-Baillo *)
- (* 28/02/1994 - Se añaden nuevos sonidos y funciones nuevas independientes
- de las de unidad CRT. *)
-
- INTERFACE
-
- Procedure Retardo(Ms : Word);
- { Procedure CalibrarRetardo;}
- Procedure Sonido(Freq : Word);
- Procedure NoSonido;
- Procedure Nota(Freq, Dura : Word);
-
- Procedure Sonido01;
- Procedure sonido02;
- Procedure sonido03;
- Procedure sonido04;
- Procedure sonido05;
- Procedure sonido06;
- Procedure sonido07;
- Procedure sonido08;
- Procedure sonido09;
- Procedure sonido10;
- Procedure sonido11;
- Procedure sonido12;
- Procedure sonido13;
-
- PROCEDURE Sonido2(F: Longint);
- PROCEDURE NoSonido2;
-
- IMPLEMENTATION
-
- {...}
-
- begin
- Autor1 := Au1;
- CalibrarRetardo;
- end.
-